Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/tokyo/east.dir/00014_Script_movie

Text File | 1999-04-26 | 2KB | 71 lines

global sndList, sndCount, chanNum, maxSnd, Nsnd, Esnd, Ssnd
global Ccounter, CsprtList, Ctime, mousePlace

on startMovie
--  clearglobals
  preLoadcast
  initsnd
  puppetsprite 39,1
  puppetsprite 3,1
  set CsprtList=[]
  set cTime=0

  set the volume of sound 1 to 100


end


on initSnd
  set Esnd=["sounds:street3.aif", "sounds:street2.aif", "sounds:arcade.aif","sounds:girl.aif", "sounds:street1.aif", "sounds:cbl.aif", "sounds:texture3.aif", "sounds:texture4.aif"]
  set maxSnd=400
  set sndList=""
  set sndCount = 1
  set chanNum = 2
  repeat with i = 1 to maxSnd
    put "-" into line i of sndlist
  end repeat
end

on echo
  set sndCount = sndCount +1
  if sndCount > maxSnd then set sndCount = 1
  if line sndCount of sndlist <> "-" then
    if not(soundbusy(chanNum)) then sound playfile, chanNum, the pathname & line sndCount of sndlist
    set chanNum = chanNum+1
    if chanNum = 9 then set chanNum = 2
  end if
end




on animate chan, firstpos, lastpos, delaytime
  if the membernum of sprite chan < firstpos or the membernum of sprite chan > lastpos then set the membernum of sprite chan = firstpos
  set the castNum of sprite chan = the castNum of sprite chan + 1
  if the castNum of sprite chan > lastpos then set the castNum of sprite chan to firstpos
  set t = delaytime+the timer
  repeat while t > the timer
    if the mousedown then exit repeat
  end repeat
end


on rightArrow
  if rollover(141) then
    set the blend of sprite 141 to 50
  else
    set the blend of sprite 141 to 100
  end if
end


on exitMovie
  if rollover(143) then
    set the blend of sprite 143 to 50
  else
    set the blend of sprite 143 to 100
  end if
end